home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / misc / emu / prlink_amiga.lha / prlink-0.8.0a / src / petscii.c < prev    next >
Text File  |  1995-04-03  |  624b  |  33 lines
  1. /*
  2.  * only deal with letters in upper/lowercase character set.
  3.  * a-z = 0x41 - 0x5A
  4.  * A-Z = 0xC1 - 0xDA
  5.  * Punctuation 0x20 - 0x3F and 0x5B - 0x5F is virtually identical.
  6.  */
  7.  
  8. void
  9. ascii2petscii(unsigned char *p)
  10. {
  11.   while (p[0]) {
  12.     if (p[0] >= 'A' && p[0] <= 'Z') {
  13.       p[0] += -'A' + 0x41 + 0x80;
  14.     } else if (p[0] >= 'a' && p[0] <= 'z') {
  15.       p[0] += -'a' + 0x41;
  16.     }
  17.     p++;
  18.   }
  19. }
  20.  
  21. void
  22. petscii2ascii(unsigned char *p)
  23. {
  24.   while (p[0]) {
  25.     if (p[0] >= 0xC1 && p[0] <= 0xDA) {
  26.       p[0] -= -'A' + 0x41 + 0x80;
  27.     } else if (p[0] >= 0x41 && p[0] <= 0x5A) {
  28.       p[0] -= -'a' + 0x41;
  29.     }
  30.     p++;
  31.   }
  32. }
  33.